home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / sys / amiga / programmer / 3222 < prev    next >
Encoding:
Internet Message Format  |  1996-08-05  |  2.2 KB
  1. Path: castle.nando.net!news
  2. From: sekruege@nando.net (Steve Krueger)
  3. Newsgroups: comp.sys.amiga.programmer
  4. Subject: Re: SAS/C fopen("foo","a") -- is this a bug?
  5. Date: 9 Feb 1996 04:03:31 GMT
  6. Organization: News & Observer Public Access
  7. Message-ID: <4feh2j$7im@castle.nando.net>
  8. References: <zpfaa8aCCygGZ1@da23.darkness.gun.de>
  9. NNTP-Posting-Host: grail813.nando.net
  10. Mime-Version: 1.0
  11. Content-Type: text/plain; charset=iso-8859-1
  12. Content-Transfer-Encoding: 8bit
  13. X-NewsReader: Interworks_GRn 3.0 January 12, 1996
  14.  
  15. In article <zpfaa8aCCygGZ1@da23.darkness.gun.de> zodiac@darkness.gun.de (Ralph Seichter) writes:
  16. : I used the following test program:
  17. : 
  18. : ----------8<----------8<----------8<----------8<----------8<----------
  19. : /* test.c */
  20. : 
  21. : #include <stdio.h>
  22. : 
  23. : void main(void)
  24. : {
  25. :     FILE *file;
  26. : 
  27. :     if (file = fopen("foo", "w"))
  28. :     {
  29. :         if (fprintf(file, "bar", 3) == 3)
  30. :             printf("write ok\n");
  31. :         fclose(file);
  32. :     }
  33. : 
  34. :     if (file = fopen("foo", "a"))
  35. :     {
  36. :         if (fprintf(file, "bar", 3) == 3)
  37. :             printf("append ok\n");
  38. :         fclose(file);
  39. :     }
  40. : }
  41. : ----------8<----------8<----------8<----------8<----------8<----------
  42. : 
  43. : After I compiled this with SAS/C 6.56, I did the following in a shell:
  44. : 
  45. :    1> sc link test.c
  46. :    1> date >foo
  47. :    1> protect foo r
  48. :    1> test
  49. :    append ok
  50. : 
  51. : The first fopen() with mode "w" fails, which is correct. But why can the
  52. : write-protected file "foo" be opened with mode "a", and why won't fprintf()
  53. : return an error? The file's contents are not changed, as is to be expected,
  54. : but fprintf() reports that three bytes were written, which is not true.
  55. : 
  56.  
  57.  
  58. Here's what's happening. The fopen() "a" mode is translated to an
  59. Open() with MODE_OLDFILE, which succeeds, so the fopen() works.
  60.  
  61. The fprintf eventually calls Write(), and that returns a success
  62. code too. Also, on my machine, the contents of foo are added to,
  63. so the routines in SC.LIB get no indication that the file
  64. is read only. 
  65.  
  66. I guess the only way to make this work as expected would be to 
  67. have the level 1 SAS/C routines examine the protection bits
  68. before doing the Open(). They currently do not look at the
  69. protection bits in any way.
  70.  
  71. sk
  72.